home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Resources / g⁄matter / g⁄matter catalog / STUBAPP.DIR / 00003.ls < prev    next >
Encoding:
Text File  |  1996-03-06  |  463 b   |  20 lines
  1. on runTheRightApp
  2.   global platform
  3.   set currentPath to the pathName
  4.   set MacAppName to "Director 5 Access"
  5.   set WIN16AppName to "GMD16.EXE"
  6.   set WIN32AppName to "GMD32.EXE"
  7.   if the machineType < 256 then
  8.     set theAppToRun to MacAppName
  9.   else
  10.     set WhichPlatform to platform
  11.     if WhichPlatform contains "16" then
  12.       set theAppToRun to WIN16AppName
  13.     else
  14.       set theAppToRun to WIN32AppName
  15.     end if
  16.   end if
  17.   open(theAppToRun)
  18.   quit()
  19. end
  20.